# name : list.sas.label.all.for get label from sas7bdat
# key : list.sas.label.all.for
# contributor : Shuguang Sun
# --
for (i in 1:length(${1:sasdts}$0)) {
dt <- sasdts[[i]]
log_trace('{names($1[i])}')
knitr::kable(data.frame(VARIABLE = names(dt),
CLASS = sapply(dt, function(x) class(x)[1]),
MODE = sapply(dt, mode),
TYPE = sapply(dt, typeof),
LABLE = sapply(dt, function(x) paste0(attr(x, "label"), ""))
))}